Top 10k strings from Spectrum-Sketch (19xx)(Klaus Jahn)(de).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   2                                  Bitte eine Taste druecken !    
   1 j$="eeeeeeeeeeeee"
   1 j$="00000000000000000000000000000000"
   1 i$="11111111111111111111111111111111"
   1 i$="1111111111111"
   1 ee1111nw100001nw10000001n10000001n10000001n10000001ne100001ne1111
   1 c$=c$+"1"+j$(
   1 c$="ee1111nw100001nw10000001n10000001n10000001n10000001ne100001ne1111"
   1 c$="e011110nw01000010n10****01n10****01n10****01n10****01n01000010ne011110"
   1 c$="11111111n10000001n10000001n10000001n10000001n10000001n10000001n11111111"
   1 c$="111000111000111000111"
   1 c$="1000001se10001se101se1sw101sw10001sw1000001"
   1 c$="000n01000nw0011100n01***10nw001***10n01***100nwww00001***10n0101***100n011****10n01****100n001***1000ne01**11110n001110000ne01000n000"
   1 c$="00000000000000000000n01111111111111111110n01111111111111111110n01111111111111111110n01011111111111111010n00101111111111110100ne010011111111110010n001001111111100100ne0100011111100010n0011001111001100ne00011011011000nee0001111000nee000000"
   1 Zum Stoppen eine Taste druecken 
   1 Spectrum-SKETCH
   1 Sketch    
   1 RANDOMIZE USR 6e4
   1 POKE 60131,1
   1 LET c$=""111000111000111000111
   1 Invertieren:
   1 Einschraenkung:
   1 Druecken Sie 0 um weiterzumachen
   1 ;"Treppen"
   1 ;"Spectrum-Sketch:"
   1 ;"Kursor :"'"Mit Kursortasten umherbewegen";#0
   1 ;"Dieses Sprite sieht dann so aus:"
   1 ;"Dieser String wuerde dann diesesSprite erzeugen:"
   1 ;"Das war ein kleines Beispiel    fuer die Faehigkeiten von       
   1 ;"3D-Bogen"
   1 65001 --> Y-Position
   1 65000 --> X-Position
   1 11111111111111111111111111111111J 
   1 00000000000000000000000000000000
   1 ."'"Jetzt koennen Sie sich Ihre     Sprites selbermachen..."
   1 )+"1n1n1n1n1n1n1n1n1n1"
   1 ''''''"Wollen Sie ein kleines X schrei-ben, so koennte der String so   aussehen:"
   1 '''''"Wie Sie sehen, beginnt die      SKETCH-Funktion bei der festge- legten (X,Y)-Position. Jede 1   oder 0 wird einfach als Punkt   von links nach rechts abgearbei-tet. Die Buchstaben n,s,w und e verschieben die (X,Y)-Position  um einen Pixel."
   1 '''''"Der Vorteil an SKETCH ist, dass man sich in dem String in alle  Himmelsrichtungen umherbewegen  kann."
   1 ''"an. Nachdem der String c$ defi- niert ist, ruft man die Routine mit 
   1 ''"Wenn Sie z.B. ein kleines Qua-  drat zeichnen moechten, schrei- ben Sie:"
   1 ''"So, dann wuensche Ich Ihnen nochviel Spass beim Zeichnen !"
   1 ''"LET c$=""11111111n10000001n10000001n10000001n10000001n10000001n10000001n11111111"""
   1 ''"LET c$=""1000001se10001se101se1sw101sw10001sw1000001"""
   1 '"Uebrigens werden alle anderen   Zeichen ignoriert. D.h., man    kann den String auch uebersicht-lich gestalten, wenn man will."''
   1 '"Soll der Normalzustand wieder   hergestellt werden, so poken Siewieder eine 
   1 "Will man Pixel nicht veraendern,so kann man anstelle einer 0 denStern * verwenden."
   1 "Um ein solches Sprite zu defi-  nieren, gibt man das Bitmuster  in dem String c$ an. Wie das ge-schieht, und was man damit fuer Moeglichkeiten hat, zeige ich   Ihnen im Folgenden."'
   1 "Sehen Sie im Folgenden erst mal ein paar Beispiele; spaeter     nenne ich Ihnen noch weitere    Moeglichkeiten von SKETCH.":
   1 "Der String darf beliebig lang   sein, also koennen beliebig     grosse Sprites definiert werden."
   1 "Dazu benutzt man ganz einfach   die Anfangsbuchstaben der       Himmelsrichtungen:"
   1 "Das Sprite kann an jeder Pixel- stelle des Bildschirms sein. DieX- und Y- Position gibt man in  den Adressen"'
   1 "Aber wie wird der String defi-  niert ?"'"Nun, man gibt die     Pixels mit den Ziffern 1 (fuer  INK) und 0 (fuer PAPER) an.     Wenn Sie z.B. eine gestrichelte Linie haben moechten, schreiben Sie:"
   1 "''"Sollen alle Nullen im String alsEinsen, und alle Einsen als Nul-len interpretiert werden, so    geben Sie bitte ein:"
   1 "''"Der String c$ darf nicht mit DIMdimesioniert werden."''"Ich nenne Ihnen nocheinmal alle Stringelemente:"
   1 """''"Nach dem Aufruf wuerde dann das sichtbar:"
   1  plottet einen inversen Pkt.   
   1  plottet einen Punkt.          
   1  laesst alten Punkt stehen.    
   1  fuer WEST  (Westen)           
   1  fuer SOUTH (Sueden)           
   1  fuer NORTH (Norden)           
   1  fuer EAST  (Osten)"
   1  erniedrigt Y-Position         
   1  erniedrigt X-Positon"
   1  erhoeht Y-Position            
   1  erhoeht X-Position            
   1  an diese Adresse."
   1  Tschuess ! 
   1   Treppen              
   1   Kursor               
   1   3D-Bogen             
   1                                     --- Spectrum-SKETCH ---                                       written by Klaus Jahn                      Felsenstr.12                    6432 Heringen 1                                    
   1